home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / misc / emu / QDOS2.lha / QLsource / ROMsrc / SYS / PROCS3_asm < prev    next >
Text File  |  1992-08-06  |  1KB  |  46 lines
  1. */beginfile PROCS3_asm
  2. ; --------------------------------------------------------------
  3. ; PROCS3_asm - BASIC bits
  4. ;        - last modified 06/08/92
  5. ; QDOS-Amiga sources by Rainer Kowallik
  6. ;    ...some changes by Mark J Swift
  7. ; --------------------------------------------------------------
  8. L066A2:
  9. BAS_CSIZe:
  10.     JSR    L08038(PC)    ;*/undomodify BSR L08038
  11.     BNE.S    L066C4
  12.     SUBQ.W    #1,D3
  13.     JSR    L08028(PC)    ;*/undomodify BSR L08028
  14.     BNE.S    L066C4
  15.     MOVE.W    -$02(A6,A1.L),D2
  16.     EXG    D1,D2
  17.     CMPI.W    #$0003,D1
  18.     BHI.S    L066C2
  19.     MOVEQ    #$2D,D4
  20.     JMP    L07FC4(PC)    ;*/undomodify BRA L07FC4
  21. L066C2    MOVEQ    #-15,D0        ; bad parameter
  22. L066C4    RTS
  23. BAS_CURSor:
  24.     MOVEQ    #-$20,D0
  25.     ADD.L    A5,D0
  26.     SUB.L    A3,D0
  27.     BEQ    L06BE0
  28.     MOVEQ    #$17,D4
  29.     BRA.S    L066D6
  30. BAS_AT:
  31.     MOVEQ    #$10,D4
  32. L066D6    JSR    L08038(PC)    ;*/undomodify BSR L08038
  33.     BNE.S    L066F8
  34.     CMPI.W    #$0002,D3
  35.     BNE.S    L066F6
  36.     MOVE.W    0(A6,A1.L),D2
  37.     MOVE.W    -$02(A6,A1.L),D1
  38.     CMPI.B    #$10,D4
  39.     BNE.S    L066F2
  40.     EXG    D1,D2
  41. L066F2    JMP    L07FC4(PC)    ;*/undomodify BRA L07FC4
  42. L066F6    MOVEQ    #-15,D0        ; bad parameter error
  43. L066F8    RTS
  44. ; --------------------------------------------------------------
  45. ;*/endfile
  46.